home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #041 (1990)(Amiga User Group Deutschland e.V.).adf / DTdbS / tdbs4 (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-02  |  20KB  |  458 lines
  1. SCREEN 2,640,200,4,2
  2. WINDOW 2,,,0,2
  3. RANDOMIZE TIMER
  4. DEFLNG a-z
  5. DECLARE FUNCTION opendiskfont&() LIBRARY
  6. LIBRARY "diskfont.library"
  7. LIBRARY "graphics.library"
  8. altfont=PEEKL(WINDOW(8)+52)
  9. neufont$="amber.font"+CHR$(0)
  10. hoehe=19:pref=96 
  11. text(0)=SADD(neufont$)
  12. text(1)=(2^16)*hoehe+pref
  13. font=opendiskfont&(VARPTR(text(0)))
  14. IF font<>0 THEN CALL setfont&(WINDOW(8),font)
  15. FOR i=1 TO 5
  16. REM MENU i,0,1,""
  17. NEXT
  18. MENU ON
  19. FOR i=0 TO 27
  20. PALETTE i,0,0,0
  21. NEXT
  22. OPEN "I",#1,"Held"
  23. WHILE NOT EOF(1)
  24. INPUT #1,spieler$,geld,punkte,mut,waffe$
  25. INPUT #1,kleidung$,geschick,parade,attacke 
  26. INPUT #1,charisma,intelligenz,kraft,lebensenergie,tp 
  27. WEND
  28. CLOSE #1
  29. start:
  30. CALL freesprite (0) 
  31. COLOR 2
  32. 1 CLS:LOCATE 3,3
  33. schr$="Du stehst am Rande eines Gebirges, mitten in einem Tal !":sp(schr$):LOCATE 5,3
  34. schr$="Was besonders an diesem Tal auffaellt ist, dass die gesamten":sp(schr$):LOCATE 7,3
  35. schr$="Steine blau sind. Sie haben alle ein verschiedenes blau, so":sp(schr$):LOCATE 9,3
  36. schr$="dass Du von dieser Vielfalt der Farben ueberwaeltigt bist, so":sp(schr$):LOCATE 11,3
  37. schr$="etwas hast Du noch nie gesehen. Wahnsinn!":sp(schr$):LOCATE 14,3:COLOR 3
  38. schr$="Du kannst nur nach Sueden < F1 >":sp(schr$):COLOR 2 
  39. PALETTE 5,0.93,0.2,0
  40. PALETTE 6,0.4,0.6,1
  41. PALETTE 7,0.8,0.4,0.33
  42. PALETTE 2,1,0.87,0.73
  43. PALETTE 3,1,1,0.13
  44. WHILE 1
  45. getkey x
  46. IF x=1 THEN 2
  47. IF x=11 THEN GOSUB dokument:GOTO 1
  48. WEND
  49.  
  50. 2 CLS:LOCATE 3,3
  51. schr$="Du triffst auf einen Pfad, dieser teilt sich in drei Richtungen":sp(schr$):LOCATE 5,3
  52. schr$="es fuehren Wege nach Norden, Westen und nach Sueden. Es ist sehr":sp(schr$):LOCATE 7,3
  53. schr$="sehr schoen ruhig hier, einge Voegel singen und in der Ferne ":sp(schr$):LOCATE 9,3
  54. schr$="vernimmst Du das Lachen von Menschen, es scheint als ob hier":sp(schr$):LOCATE 11,3
  55. schr$="in der Naehe ein Fest gefeiert wird!":sp(schr$):LOCATE 13,3
  56. schr$="Ein alter Mann sitzt am Wegrand und bettelt. Er bittet Dich ":sp(schr$):LOCATE 15,3
  57. schr$="um eine kleine, milde Gabe damit er sich etwas zu essen kaufen ":sp(schr$):LOCATE 17,3
  58. schr$="kann.":sp(schr$):COLOR 3:LOCATE 19,3
  59. schr$="Du gibst ihn eine kleine Spende < F1 >":sp(schr$):LOCATE 20,3
  60. schr$="Du folgst dem Weg nach Norden < F2 >":sp(schr$):LOCATE 21,3
  61. schr$="Du haellst Dich lieber nach Sueden < F3 >":sp(schr$):LOCATE 22,3
  62. schr$="Du gehst nach Westen < F4 >":sp(schr$):COLOR 2
  63. WHILE 1
  64. getkey x
  65. ON x GOTO 100,1,4,3
  66. IF x=11 THEN GOSUB dokument:GOTO 2
  67. WEND
  68.  
  69. 3 CLS:LOCATE 3,3
  70. schr$="Nachdem Du diesem Pfad eine ganze Zeit lang gefolgt bist":sp(schr$):LOCATE 5,3
  71. schr$="kommst Du in einen kleinen Wald, rechts und links des We-":sp(schr$):LOCATE 7,3
  72. schr$="ges stehen Baueme. Es ist sehr romantisch hier! Du denkst":sp(schr$):LOCATE 9,3
  73. schr$="Dir `Hier geh ich mal mit meinem Lebensgefaehrten hin!":sp(schr$):LOCATE 11,3
  74. IF kampf=1 THEN 101
  75. schr$="Ploetzlich springt aus dem Dickicht ein Wegelagerer und ":sp(schr$):LOCATE 13,3
  76. schr$="greift Dich an! Er hat es wohl auf dein Hab und Gut abge-":sp(schr$):LOCATE 15,3
  77. schr$="sehen. Schnell ergreiftst Du deine Waffe und es kommt zum":sp(schr$):LOCATE 17,3
  78. schr$="Kampf!":sp(schr$):SLEEP:SLEEP:SLEEP
  79. monstername$="Wegelagerer":monsterattacke=16:monsterparade=9:monsterlebensenergie=18:monsterpunkte=10
  80. monstertrefferpunkte=1:i=1:kampf=1:GOTO kampf
  81.  
  82. 4 CLS:LOCATE 3,3
  83. schr$="Du folgst dem Weg ein Stueck weiter bis Du an eine Licht-":sp(schr$):LOCATE 5,3
  84. schr$="ung kommst. Rechts und links neben der Lichtung stehen ":sp(schr$):LOCATE 7,3
  85. schr$="einige kleine Buesche mit schoenen roten und gelben Beeren.":sp(schr$):LOCATE 9,3
  86. schr$="Von hier aus kannst Du nach Norden, Sueden und nach Osten!":sp(schr$):LOCATE 12,3:COLOR 3
  87. schr$="Willst Du die Beeren probieren < F1 >":sp(schr$):LOCATE 14,3
  88. schr$="Du gehst nach Norden < F2 >":sp(schr$):LOCATE 16,3
  89. schr$="< F3 > bringt Dich nach Sueden":sp(schr$):LOCATE 18,3
  90. schr$="Mit < F4 > folgst Du dem Weg nach Osten":sp(schr$):COLOR 2
  91. WHILE 1
  92. getkey x
  93. ON x GOTO 103,2,6,7
  94. IF x=11 THEN GOSUB dokument:GOTO 4
  95. WEND
  96.  
  97. 5 CLS:LOCATE 3,3
  98. schr$="Der Untergrund hier wird schon schlammig und feucht, es ":sp(schr$):LOCATE 5,3
  99. schr$="koennte sein, dass Du schon wieder an eine Wasserquelle":sp(schr$):LOCATE 7,3
  100. schr$="kommst. Ueberall um Dich herum sind Moosstellen und Pflanzen":sp(schr$):LOCATE 9,3
  101. schr$="bauten. Aufeinmal erscheint ein Irrlicht vor Dir. Diese er-":sp(schr$):LOCATE 11,3
  102. schr$="scheinung spielt Deinen Sinnen etwas vor und lockt Dich immer":sp(schr$):LOCATE 13,3
  103. schr$="weiter in das totbringende Moor hinein!":sp(schr$):LOCATE 15,3 
  104. x=INT(RND*(20+1)+4)
  105. IF x<intelligenz THEN schr$="Du folgst dem Irrlicht und stuerzt dabei in ein Moorkuhle !":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO schluss
  106. schr$="Durch Deine enorme Intelligenz hast Du es nochmal geschafft ":sp(schr$):LOCATE 17,3
  107. schr$="dem Irrlicht zu entgehen! Schnell rennst Du davon!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 6
  108.  
  109. 6 CLS:LOCATE 3,3
  110. schr$="Nach laengerer Wegstrecke durch dichten Wald und Gebuesch":sp(schr$):LOCATE 5,3
  111. schr$="kommst Du an eine Stelle wo sich Dein Pfad teilt.":sp(schr$):LOCATE 7,3
  112. schr$="Du kannst nun nach Suedwesten, Suedosten und natuerlich":sp(schr$):LOCATE 9,3
  113. schr$="auch noch nach Norden.":sp(schr$):LOCATE 12,3:COLOR 3
  114. schr$="Du gehst nach Suedwesten < F1 >":sp(schr$):LOCATE 14,3
  115. schr$="Du kannst auch nach Suedosten < F2 >":sp(schr$):LOCATE 16,3
  116. schr$="Du haellst Dich lieber nach Norden < F3 >":sp(schr$):COLOR 2
  117. WHILE 1
  118. getkey x
  119. ON x GOTO 8,9,4
  120. IF x=11 THEN GOSUB dokument:GOTO 6
  121. WEND
  122.  
  123. 7 CLS:LOCATE 3,3
  124. schr$="Du befindest Dich auf einem Weg, dieser fuehrt in zwei":sp(schr$):LOCATE 5,3
  125. schr$="Richtungen; nach Westen und nach Osten":sp(schr$):LOCATE 7,3
  126. schr$="Nach einiger Zeit kommt ein Fuhrwagen an Dir vorbei. Der":sp(schr$):LOCATE 9,3
  127. schr$="Kutscher fragt ob er Dich in die naechste Stadt mitnehmen":sp(schr$):LOCATE 11,3
  128. schr$="soll?":sp(schr$):LOCATE 14,3:COLOR 3
  129. schr$="Du nimmst das Angebot dankend an < F1 >":sp(schr$):LOCATE 16,3
  130. schr$="Du lehnst ab, fragst aber nach dem Weg < F2 >":sp(schr$):LOCATE 18,3
  131. schr$="Du gehst nach Osten < F3 >":sp(schr$):LOCATE 20,3
  132. schr$="Du haellst Dich lieber nach Westen < F4 >":sp(schr$):COLOR 2
  133. WHILE 1
  134. getkey x
  135. ON x GOTO 104,105,10,4
  136. IF x=11 THEN GOSUB dokument:GOTO 7
  137. WEND
  138.  
  139. 8 CLS:LOCATE 3,3
  140. schr$="Du kommst an eine kleine Kate, sie scheint verlassen zu ":sp(schr$):LOCATE 5,3
  141. schr$="seien. Neben der Kate ist eine Menge Holz gestapelt. Die":sp(schr$):LOCATE 7,3
  142. schr$="Kate ist komplett aus Holz gebaut wurden und macht noch":sp(schr$):LOCATE 9,3
  143. schr$="einen ziehmlich guten Eindruck.":sp(schr$):LOCATE 12,3:COLOR 3
  144. schr$="Willst Du die Kate betreten? < F1 >":sp(schr$):LOCATE 14,3
  145. schr$="Gehst Du den Weg wieder zurueck < F2 >":sp(schr$):COLOR 2
  146. WHILE 1
  147. getkey x
  148. ON x GOTO 106,6
  149. IF x=11 THEN GOSUB dokument:GOTO 8
  150. WEND
  151.  
  152. 9 CLS:LOCATE 3,3
  153. schr$="Du stehst auf einem Pfad. Dieser spaltet sich und verlaeuft":sp(schr$):LOCATE 5,3
  154. schr$="in drei Richtungen; nach Nordosten, Sueden und natuerlich ":sp(schr$):LOCATE 7,3
  155. schr$="nach Nordwesten.":sp(schr$):LOCATE 10,3:COLOR 3
  156. schr$="Mit < F1 > gelangst Du nach Nordwesten":sp(schr$):LOCATE 12,3
  157. schr$="Du kannst auch nach Sueden < F2 >":sp(schr$):LOCATE 14,3
  158. schr$="Willst Du nach Nordosten druecke < F3 >":sp(schr$):COLOR 2
  159. WHILE 1
  160. getkey x
  161. ON x GOTO 6,11,10
  162. IF x=11 THEN GOSUB dokument:GOTO 9
  163. WEND
  164.  
  165. 10 CLS:LOCATE 3,3
  166. schr$="Du folgst dem Weg, bis Du schliesslich nach einiger Zeit an":sp(schr$):LOCATE 5,3
  167. schr$="eine Stelle kommst, wo der Weg in drei Richtungen weiterver-":sp(schr$):LOCATE 7,3
  168. schr$="laueft.":sp(schr$):LOCATE 9,3
  169. schr$="Du kannst nach Suedwesten, Osten und nach Westen!":sp(schr$):LOCATE 11,3:COLOR 3
  170. schr$="Du gehst nach Suedwesten < F1 >":sp(schr$):LOCATE 13,3
  171. schr$="Mit < F2 > kommst Du nach Westen":sp(schr$):LOCATE 15,3
  172. schr$="Du kannst auch noch nach Osten < F3 >":sp(schr$):COLOR 2
  173. WHILE 1
  174. getkey x
  175. ON x GOTO 9,7,12
  176. IF x=11 THEN GOSUB dokument:GOTO 10
  177. WEND
  178.  
  179. 11 CLS:LOCATE 3,3
  180. schr$="Als Du eine lange Zeit durch den Wald gelaufen bist knackt ":sp(schr$):LOCATE 5,3
  181. schr$="hinter Dir ein Ast. Du gehst leise weiter und tust so als":sp(schr$):LOCATE 7,3
  182. schr$="ob Du nichts bemerkt haettest. Deine Hand schliesst sich":sp(schr$):LOCATE 9,3
  183. schr$="fester um Deine Waffe und Du bist auf alles gefasst":sp(schr$):LOCATE 11,3
  184. IF ert=1 THEN GOTO 109
  185. schr$="Mit einem Ruck drehst Du dich um und Dir erstarrt beinahe ":sp(schr$):LOCATE 13,3
  186. schr$="das Blut in den Adern. Ein riesiger Waldbaer greift an!":sp(schr$)
  187. SLEEP:SLEEP:SLEEP:monstername$="Waldbaer":monsterattacke=12:monsterparade=10:monstertrefferpunkte=2
  188. monsterlebensenergie=35:monsterpunkte=40:ert=1:i=2:GOTO kampf
  189.  
  190. 12 CLS:LOCATE 3,3
  191. schr$="Als Du lange Zeit durch einen Wald geirrt bist kommst Du auf ":sp(schr$):LOCATE 5,3
  192. schr$="auf eine Lichtung, Du folgst dem Weg, der von der Lichtung ":sp(schr$):LOCATE 7,3
  193. schr$="vortfuehrt und verlaesst den Wald. Ueber Felder und Wiesen":sp(schr$):LOCATE 9,3
  194. schr$="geht der Weg, bis er schliesslich vor den Toren einer Stadt":sp(schr$):LOCATE 11,3
  195. schr$="endet.":sp(schr$):LOCATE 14,3:COLOR 3
  196. schr$="Du kannst die Stadt betreten < F1 >":sp(schr$):LOCATE 16,3
  197. schr$="Du kannst den Weg auch wieder zurueckgehen < F2 >":sp(schr$):COLOR 2
  198. WHILE 1
  199. getkey x
  200. ON x GOTO laden,10
  201. IF x=11 THEN GOSUB dokument:GOTO 12
  202. WEND
  203.  
  204. 13 CLS:LOCATE 3,3
  205. schr$="Du befindest Dich immer noch im Wald und vor Dir teilt sich":sp(schr$):LOCATE 5,3
  206. schr$="der Weg in zwei Richtungen. Du kannst jetzt entweder nach ":sp(schr$):LOCATE 7,3
  207. schr$="Westen oder nach Osten!":sp(schr$):LOCATE 9,3
  208. schr$="Der Wald wird nach Westen immer dichter und nach Osten hin":sp(schr$):LOCATE 11,3
  209. schr$="sieht es auch nicht viel besser aus!":sp(schr$):LOCATE 14,3:COLOR 3
  210. schr$="Willst Du nach Osten < F1 > oder ":sp(schr$):LOCATE 16,3
  211. schr$="willst Du nach Westen < F2 >":sp(schr$):LOCATE 18,3
  212. schr$="Du kannst auch noch nach Norden < F3 >":sp(schr$):COLOR 2
  213. WHILE 1
  214. getkey x
  215. ON x GOTO 15,14,11
  216. IF x=11 THEN GOSUB dokument:GOTO 13
  217. WEND
  218.  
  219. 14 GOTO 4
  220.  
  221. 15 CLS:LOCATE 3,3
  222. schr$="Du gehst den Pfad weiter entlang, aber es ist schrecklich,":sp(schr$):LOCATE 5,3
  223. schr$="denn der Pfad wird immer enger und ueberwachsener so das":sp(schr$):LOCATE 7,3
  224. schr$="Du bald nur noch schwer vorankommst. Links neben Dir stehen":sp(schr$):LOCATE 9,3
  225. schr$="Pflanzen, die Du noch nie in deinem Leben vorher gesehen hast.":sp(schr$):LOCATE 11,3
  226. schr$="Sie haben langen Schlingarme und eine etwas seltsame Bluete,":sp(schr$):LOCATE 13,3
  227. schr$="die beim betrachten eher an eine Reihe Zaehne erinnern!":sp(schr$):LOCATE 16,3:COLOR 3
  228. schr$="Willst Du dem Pfad folgen? < F1 >":sp(schr$):LOCATE 18,3
  229. schr$="Gehst Du lieber wieder zurueck < F2 >":sp(schr$):COLOR 2
  230. WHILE 1
  231. getkey x
  232. ON x GOTO 16,13
  233. IF x=11 THEN GOSUB dokument:GOTO 15
  234. WEND
  235.  
  236. 16 IF tzu=1 THEN 110 
  237. CLS:LOCATE 3,3
  238. schr$="Du folgst also dem ueberwucherten Weg, dieser Stoppt jedoch ":sp(schr$):LOCATE 5,3
  239. schr$="an einer breiten, tiefen Schlucht. Als Du Deinen Weg wieder":sp(schr$):LOCATE 7,3
  240. schr$="zurueck setzten willst, merkst Du wie die Pflanzen mit den ":sp(schr$):LOCATE 9,3
  241. schr$="seltsamen Blueten, mit ihren Schlingarmen Dich angreifen. Oh":sp(schr$):LOCATE 11,3
  242. schr$="Gott, es sind tatsaechlich die totbringenden Teufelspflanzen!":sp(schr$):LOCATE 13,3
  243. schr$="Man sagt, dass sie ein Pferd innerhalb von zwei Minuten":sp(schr$):LOCATE 15,3
  244. schr$="bis auf die Knochen abgefressen haben. Und nun Dich! Musste ":sp(schr$):LOCATE 17,3
  245. schr$="das sein?":sp(schr$):monsterattacke=12:monsterparade=2:monsterlebensenergie=70:monstertrefferpunkte=1
  246. monsterpunkte=20:monstername$="Teufelspflanze":tzu=1:i=3:SLEEP:SLEEP:SLEEP:GOTO kampf
  247.  
  248. 100 CLS:LOCATE 3,3
  249. IF geld<=0 THEN schr$="Du hast ja selber kein Geld !!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 2
  250. geld=geld-5:IF geld<0 THEN geld=0
  251. schr$="Du gibst ihm ein bisschen von deinem Geld! Er bedankt sich":sp(schr$):LOCATE 5,3
  252. schr$="und sagt:` Nimm Dich vor dem Schwarzen Keiler in acht, er":sp(schr$):LOCATE 7,3
  253. schr$="ist sehr gefaehrlich!! Geh nicht dort hin, es koennte sein,":sp(schr$):LOCATE 9,3
  254. schr$="dass Du getoetet oder beraubt wirst!!'":sp(schr$):LOCATE 11,3
  255. SLEEP:SLEEP:SLEEP:GOTO 2
  256.  
  257. 101 FOR i=11 TO 23 STEP 2
  258. PRINT SPACE$(50):NEXT
  259. LOCATE 11,3:schr$="Tja jetzt liegt neben Dir ein toter Wegelagerer, na ja wo":sp(schr$):LOCATE 13,3
  260. schr$="warst Du doch gleich stehengeblieben? Ach ja, von hier aus  ":sp(schr$):LOCATE 15,3
  261. schr$="fuehren nur zwei Wege fort; nach Westen und nach Osten!":sp(schr$):LOCATE 18,3:COLOR 3
  262. schr$="Du kannst den toten durchsuchen < F1 >":sp(schr$):LOCATE 20,3
  263. schr$="Du kannst nach Westen < F2 >":sp(schr$):LOCATE 22,3
  264. schr$="Du schlaegst den Weg nach Osten ein < F3 >":sp(schr$):COLOR 2
  265. WHILE 1
  266. getkey x
  267. ON x GOTO 102,5,2
  268. IF x=11 THEN GOSUB dokument:GOTO 3
  269. WEND
  270.  
  271. 102 CLS:LOCATE 3,3
  272. IF such=1 THEN schr$="Du hast schon mal alles durchsucht! Pfui!":sp(schr$):SLEEP:SLEEP:SLEEP:GOTO 3
  273. schr$="Als Du in der blutigen Leiche des Wegelagerers herumsuchst":sp(schr$):LOCATE 5,3
  274. schr$="findest Du 8 Silberstuecke und einen Zettel.":sp(schr$):LOCATE 9,3:COLOR 7
  275. schr$="Auf dem Zettel steht: 500 Silberstuecke der mir - nein Du":sp(schr$):LOCATE 11,3
  276. schr$="glaubst es nicht, da steht Dein Name! - bringt !":sp(schr$):LOCATE 13,3
  277. schr$="Tot oder unlebendig !!":sp(schr$):LOCATE 15,3:COLOR 2
  278. schr$="Deswegen greift Dich also jeder an, schon an der Wasserquelle":sp(schr$):LOCATE 17,3
  279. schr$="und jetzt hier !":sp(schr$):SLEEP:SLEEP:SLEEP:geld=geld+8:such=1:GOTO 3
  280.  
  281. 103 CLS:LOCATE 3,3
  282. IF er=0 THEN lebensenergie=lebensenergie+4
  283. schr$="Du probierts die Berren und schmeckst den suesslichen Saft ":sp(schr$):LOCATE 5,3
  284. schr$="auf Deiner Zunge. Die Beeren sind verflucht gut, so eine Art":sp(schr$):LOCATE 7,3
  285. schr$="von Beeren hast Du noch nie zuvor in Deinem Leben gegessen.":sp(schr$):LOCATE 9,3
  286. SLEEP:SLEEP:SLEEP:er=1:GOTO 4
  287.  
  288. 104 CLS:LOCATE 3,1
  289. schr$="Du steigst auf den Kutschbock und stellst Dich vor. Der Kutscher":sp(schr$):LOCATE 5,1
  290. schr$="meint er waehre `Karbon der Kutschmann' und er wolle nach ":sp(schr$):LOCATE 7,1
  291. schr$="Taris der naechst groesseren Stadt hier im Tal.":sp(schr$):LOCATE 9,1
  292. schr$="Es dauert nicht mehr lange, meint Karbon, bald seid ihr da!":sp(schr$)
  293. laden:
  294. OPEN "Held" FOR OUTPUT AS #1
  295. INPUT #1,spieler$,geld,punkte,mut,waffe$
  296. INPUT #1,kleidung$,geschick,parade,attacke 
  297. INPUT #1,charisma,intelligenz,kraft,lebensenergie,tp 
  298. CLOSE #1
  299. SLEEP:SLEEP:SLEEP
  300. LOAD "tbds5",r
  301.  
  302. 105 CLS:LOCATE 3,1
  303. schr$="Der Kutscher weisst Dir den Weg, indem er meint Du sollst diesen":sp(schr$):LOCATE 5,1
  304. schr$="Pfad nicht verlassen!":sp(schr$):LOCATE 7,1
  305. schr$="Fuer seine Auskunft verlangt er 2 Silberstuecke !":sp(schr$)
  306. IF geld<=0 THEN punkte=punkte-3
  307. geld=geld-2
  308. IF geld<=0 THEN geld=0
  309. SLEEP:SLEEP:SLEEP:GOTO 7
  310.  
  311. 106 CLS:LOCATE 3,1
  312. schr$="Die Kate hat ca. eine groesse von 5x6 Metern, mit einem kleinen":sp(schr$):LOCATE 5,1
  313. schr$="Tisch und zwei Stuehlen in der Mitte. Ein Regal und ein Schrank":sp(schr$):LOCATE 7,1
  314. schr$="befinden sich auch noch im Raum. In einem Bett, das neben dem":sp(schr$):LOCATE 9,1
  315. schr$="Kamin steht, liegt ein Mann.":sp(schr$):LOCATE 11,1
  316. schr$="Dieser Blutet stark!":sp(schr$):LOCATE 14,1:COLOR 3
  317. IF tot=1 THEN LOCATE 11,1:schr$="Dieser ist nun leider Tot!":sp(schr$):COLOR 3:LOCATE 14,1
  318. schr$="Willst Du mit ihm sprechen < F1 >":sp(schr$):LOCATE 16,1
  319. schr$="Du kannst die Kate untersuchen < F2 >":sp(schr$):LOCATE 18,1
  320. schr$="Du kannst den Mann angreifen < F3 >":sp(schr$):LOCATE 20,1
  321. schr$="Mit < F4 > verlaesst Du die Kate wieder":sp(schr$):COLOR 2
  322. WHILE 1
  323. getkey x
  324. ON x GOTO 107,108
  325. IF x=3 THEN tot=1:charisma=charisma-2:IF charisma<=0 THEN charisma=0:GOTO 106
  326. IF x=4 THEN 8
  327. IF x=11 THEN GOSUB dokument:GOTO 106
  328. WEND
  329.    
  330. 107 CLS:LOCATE 3,3
  331. IF sprach=1 THEN PRINT"Du sprichst wohl oefters mit toten wa?":SLEEP:SLEEP:SLEEP:GOTO 106
  332. schr$="Der Mann spricht in leisen schwer verstaendlichen Worten:":sp(schr$):LOCATE 5,3:COLOR 6
  333. schr$="Der Schwa... Ke..e. - Sie hab.. al.le. was i.h be.it.. ":sp(schr$):LOCATE 7,3
  334. schr$="Bi..e fi..e das Amu..t. der M..ht und sch..t.. e. v.r dem":sp(schr$):LOCATE 9,3
  335. schr$="He..sc.er. de. Du..e.h.it !!!":sp(schr$):LOCATE 13,3:COLOR 2
  336. schr$="Dann stirbt er in Deinen Armen !":sp(schr$):tot=1:sprach=1:SLEEP:SLEEP:SLEEP:GOTO 106
  337.  
  338. 108 CLS:LOCATE 3,3
  339. IF unter=1 THEN PRINT "Eh, wie oft willst die Kate es noch untersuchen ?!":SLEEP:SLEEP:SLEEP:GOTO 106
  340. schr$="Du untersuchst die ganze Kate und findest dabei zwei Ampul-":sp(schr$):LOCATE 5,3
  341. schr$="len und ein Stab. Das Stab ist unwahrscheinlich leicht zu ":sp(schr$):LOCATE 7,3
  342. schr$="fuehren und zerschlaegt Stein. Als Du die Ampullen getrunken":sp(schr$):LOCATE 9,3
  343. schr$="hast merkst Du wie Dich neue Lebensenergie durchstroemmt.":sp(schr$)
  344. lebensenergie=lebensenergie+5:tp=8:waffe$="seltsamer Stab":punkte=punkte+4
  345. unter=1:tot=1:sprach=1:SLEEP:SLEEP:SLEEP:GOTO 106
  346.  
  347. 109 LOCATE 11,3
  348. schr$="Der riesiege tote Baer liegt vor Dir. Froh diesen Kampf noch-":sp(schr$):LOCATE 13,3
  349. schr$="einmal lebend ueberstanden zu haben setzt Du deinen Weg fort!":sp(schr$):LOCATE 16,3:COLOR 3
  350. schr$="Du kannst nach Norden < F1 >":sp(schr$):LOCATE 18,3
  351. schr$="Du kannst auch nach Sueden < F2 >":sp(schr$):COLOR 2
  352. WHILE 1
  353. getkey x
  354. ON x GOTO 9,13
  355. IF x=11 THEN GOSUB dokument:GOTO 11
  356. WEND
  357.  
  358. 110 CLS:LOCATE 3,3
  359. schr$="Froh diesen ungleichen Kampf noch einmal mit ein paar":sp(schr$):LOCATE 5,3
  360. schr$="Wunden ueberlebt zu haben, setzt Du deinen Weg von der ":sp(schr$):LOCATE 7,3
  361. schr$="Schlucht in Richtung Wald wieder fort und hoffst dass ":sp(schr$):LOCATE 9,3
  362. schr$="Dich jetzt diese Pflanzen verschonen werden. ":sp(schr$):SLEEP:SLEEP:SLEEP:SLEEP:GOTO 13
  363.  
  364. 260 COLOR 2
  365. IF i=1 THEN 3
  366. IF i=2 THEN 11
  367. IF i=3 THEN 16
  368. REM ********************
  369. REM ** unterprogramme **
  370. REM ********************
  371.  
  372. SUB sp(schr$) STATIC
  373. CALL text(WINDOW(8),SADD(schr$),LEN(schr$))
  374. END SUB
  375.  
  376. SUB getkey (keynumber) STATIC
  377. in$=""
  378. WHILE in$=""
  379. SLEEP
  380. in$=INKEY$
  381. WEND
  382. keynumber=ASC(in$)-128
  383. IF keynumber<1 OR keynumer>10 THEN keynumber=0
  384. END SUB
  385.  
  386.  
  387. dokument:
  388. CLS:LOCATE 3,3 
  389. PRINT "Name: ";spieler$
  390. LOCATE 5,3:COLOR 6
  391. PRINT "Mut:":COLOR 7:LOCATE 5,25:PRINT mut:COLOR 6:LOCATE 7,3
  392. PRINT "Geschick:":COLOR 7:LOCATE 7,25:PRINT geschick:COLOR 6:LOCATE 9,3
  393. PRINT "Klugheit:":COLOR 7:LOCATE 9,25:PRINT intelligenz:COLOR 6:LOCATE 11,3
  394. PRINT "Kraft:":COLOR 7:LOCATE 11,25:PRINT kraft:COLOR 6:LOCATE 13,3
  395. PRINT "Charisma:":COLOR 7:LOCATE 13,25:PRINT charisma:COLOR 6:LOCATE 15,3
  396. PRINT "Attacke:":COLOR 7:LOCATE 15,25:PRINT attacke:COLOR 6:LOCATE 17,3
  397. PRINT "Parade:":COLOR 7:LOCATE 17,25:PRINT parade 
  398. LOCATE 19,3:COLOR 5
  399. PRINT "Lebensenergie:";TAB(25);lebensenergie
  400. COLOR 6:LOCATE 5,31:PRINT "Waffe:":COLOR 7:LOCATE 5,45:PRINT waffe$
  401. COLOR 6:LOCATE 7,31:PRINT "Ruestung:":COLOR 7:LOCATE 7,45:PRINT  kleidung$
  402. COLOR 6:LOCATE 9,31:PRINT "Vermoegen:":COLOR 7:LOCATE 9,44:PRINT geld
  403. COLOR 6:LOCATE 11,31:PRINT "Punkte:":COLOR 3:LOCATE 11,44:PRINT punkte
  404. COLOR 2
  405. SLEEP:SLEEP
  406. WHILE a$=""
  407. a$=INKEY$
  408. WEND
  409. RETURN
  410.  
  411. schluss:
  412. CLS:LOCATE 3,3:COLOR 7
  413. PRINT "Hey ";spieler$;", Du solltest auch mal die positive Seite"
  414. PRINT "  dieser Entwickling betrachten: Du hast es hinter Dir,"
  415. PRINT "  niemand kann Dich mehr quaelen und demuetigen..."
  416. PRINT:PRINT"  Du hast trotzdem schon";punkte;" Punkte gemacht. Bravo"
  417. COLOR 3:PRINT:PRINT"Noch ein Spiel?"
  418. PRINT "       < F1 > Na klar, ich bin doch kein looser"
  419. PRINT "       < F2 > So ein scheiss Spiel, schnell weg"
  420. WHILE 1
  421. getkey x
  422. IF x=1 THEN LOAD"TDBS",r
  423. IF x=2 THEN SYSTEM
  424. WEND
  425.  
  426. an:  
  427.  COLOR 6 
  428.  IF lebensenergie<=0 THEN schluss
  429.   IF monsterlebensenergie<=0 THEN punkte=punkte+monsterpunkte:GOTO 260 
  430.  LOCATE 6,3:PRINT"Lebensenergie: ";lebensenergie
  431.  COLOR 5
  432.  LOCATE 6,35:PRINT "Monsterenergie: ";monsterlebensenergie
  433. RETURN
  434.  
  435. kampf:
  436. CLS:LOCATE 3,3:COLOR 7
  437. PRINT "Name: ";UCASE$(spieler$):LOCATE 3,35:PRINT "Monster: ";monstername$
  438. WHILE 1
  439. duatt:
  440. x=INT(RND*(20+1))
  441. IF x<attacke THEN GOTO monstpa
  442. IF x>attacke THEN GOTO monstatt
  443. dupa:
  444. y=INT(RND*(20+1))
  445. IF y<parade THEN GOSUB an:GOTO duatt
  446. IF y>parade THEN lebensenergie=lebensenergie-INT(RND*(6+1)+monstertrefferpunkte):GOSUB an:GOTO duatt
  447. monstatt:                                                                   
  448. x=INT(RND*(20+1))
  449. IF x<monsterattacke THEN GOSUB an:GOTO dupa
  450. IF x>monsterattacke THEN GOSUB an:GOTO duatt
  451. monstpa:
  452. y=INT(RND*(20+1))
  453. IF y<monsterparade THEN GOSUB an:GOTO monstatt
  454. IF y>monsterparade THEN monsterlebensenergie=monsterlebensenergie-tp:GOSUB an:GOTO monstatt
  455. WEND
  456.  
  457.  
  458.